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AND SET ONTO JOB NUMBER 




0 0236 

1530 00 til 


.2 7 S 


INI 

i , X 3 


INC ELEMENT COUNT 




0 0 237 

2 u 2 0 0 0 0 U 


276 


LDA 

a,x 2 




O 

O' 

00240 

53600000 


277 


TAI 

X 2 


FIX FOR NEXT TIME 


0 0241 

12000006 


^ 278 


5HA 

23-17 


CHECK FOR INDIRECT BIT 




00242 

03304233 


273+00 

i 

A2J,LT 

DR3 02 


JUMP IF MORE IN QUEUE 




00243 

47305272 


280 


' ST I 

TEMP+1,X3 


COUNT OF ENTRIES TOO 


0 

o 

0 024.4 

14205270 


281 


ENI 

TEMP-1,X2 


WHERE TO START -1 


0 0245 

14300002 


282 


ENI 

2 , X3 


2 WORDS OF INFO 



0 0 246 

47304263 


283 


ST I 

. ..MESAGN, X3 


WRITE MESSAGE IF NEEDED 




00247 

00704463 


284 


RTJ 

FILEIT 





o 


0 4250 


285 


86N8PTR EQU 

*~z .. 


ADDRESS OF FIRST BLOCK TO X2 


o 

00250 

14200000 


2:8 6 


ENI 

IMPURE,X2 






04251 


287 


EPPCHKLP EQU 

' ^-2 ■ 






00251 

20200006 


26 8 


LDA • 

EPP,X2 


CHECK TO SEE. IF SUSY 


O 

o 

00252 

0560 50 011 


283+00 

i. 

ASS 

4777B+1 


SKIP If NOT A DESTINATION LP 


0 0 253 

01004272 


288+00 

2 

UJP 

BLPQi 


NOPE — WE CAN USE THIS ONE 



0 0 254 

20000071 

X 

291 


LDA 

INHIBIT 






0 0 255 

17600023 

X 

292 


ANA 

DIEBIT 


CHECK TO SEE IF DIE 



o 

00256 

03104215 


293 


A2J »NE 

DNB01 


DONE WITH THIS QU£ 


o 

0 0 257 

47204270 


294 


ST.I 

SAV£01,X2 


SAVE X2 FOR A SEC. 




0 0 260 

11024764 

05175 0 

295 


ECHA 

BA08ATCH 


ADDRESS OF MESSAGE. 




00261 

14700036 


296 


ENQ 

BADBL 


LENGTH 


o 

o 

00262 

14204265 


29 7 


ENI 

*-Z+3,X2 


RETURN ADDRESS 



0 4263 


296 


MESAGN EQU 

*-Z 


SKIP IF ALREADY DONE 




0 0 26 3 

04900000 


299 


ISE 

IMPURE, 0 





0 0 264 

01077777 

X 

30 0 


UJP 

OPMSG 


GO WRITE MESSAGE - SHOULD BE DINT 


o 

o 

0 0 265 

47004263 


3 Q 1 


STI 

MESAGN, 0 


SAY MESSAGE OUTPUTED 


00266 

7 7 7 4 0 U 0 0 


302 


VFD 

A12/EINT 


ALLOW THINGS TO HAPPEN 



00267 

00704554 


303 


RTJ 

MKSCRE AM 


MAKE NOISE 





0 427 0 


•3 0 4 


SAVE 0i EQU 

*-Z 





o 

0 0270 

14200000 


305 


EMI 

IMPURE,X2 


RESTORE X2 


o 

00271 

0100425i 


3 0 6 


UJP 

EPPCHKLP 


LOOP TILL SOMETHING CHANGES 




0 4 272 


30 7 


BLPfll EQU 

*-Z 






0 02 72 

14300007 


308 


ENI 

7 ,X3 


7 WORDS OF DATA 


0 

o 

0 0 273 

0.0704463 


309 


RTJ 

FILEIT 


GO MOVE BATCH INFO 


0 0 274 

20200000 


310 


LDA 

0, X 2 


GET NEXT POINTER 



0 02 75 

53600000 


311 


TAI 

X2 


NEW POINTER 




UU2 76 

12000006 


312 


SHA 

23-17 


SHIFT TO INOIRECT BIT 


7 o 

o 

0 0 277 

03304251 


313 


A Z J , L T 

EPPCHKLP 


GO GET NEXT ELEMENT 


0 0 3 0 0 

01004215 


314 


UJP 

Q-.N8 01 


TRY NEXT QUEUE 




0 43 01 


315 


0N3V8 EQU 

*-Z 





o 

00301 

00704530 


316 


RTJ 

BLGCKON 


WE ARE DONE NOW. 


o 

0 0 302 

77 740000 


317 


VFD 

A12/ElNT 




00303 

20000254 

X 

318 


LDA 

INHIBIT 





0 0304 

17600255 

X 

319 


ANA 

DIEBIT 





o 

i ' . 










0 











PA 6 E 


A33EM8LER/0S3 01.0 0 3/21/7 4 222 3 


END033 



0 0 3 0 5 
L) 0 3 0 b 
0 l) 3 0 7 
0 0 310 
0 0 311 


Oofu^bA 
2 0 0 00166 
0 310 43 0 3 
010 0 43 2 A 


m 

A ZJ,ME 

K 1 J 

mtihn 

32 2 

LOA 

loausY 

323 

AZJ♦ME 

*~Z~5 

324 

UJP 

END 14 



SEE IF EMPTY 

HANG IF SOMETHING THERE 



CD 

CD 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 









7 


EN00S3 


CD . 
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CD 

1 

JO 312 

0 4312 



s3 2& 

END135 

EQU 

*-Z _ , 

1412 342 0 



6 2 7 


t N1 

10-1000,XI 


3 03i3 

21000307 X 



328 


LOU 

IOBUSY 

CP 


0 4314 



329 

EN0135L 

EQU 

*-Z 

0 0314 

14200372 



3 3 0 


EMI 

25 0 , X2 

0 0 315 

41005271 



331 


ST Q 

TEMP 


0 0 316 

007 0 4 554 



33 2 


RTJ 

MKSCREAM 


0 0 317 

21005271 



333 


LDQ 

TEMP 

o 

0 0 320 

20000313 X 



334 


LUA 

IOBUSY 


0 0 321 

03504312 



335 


A G J , N E 

END 135 


0 0 322 

02604315 



3 3 6 


IJD 

*-2-5,X2 


0 0 323 

02504314 



337 


IJO 

END135L ,X1 

G 





33 8 






0 4324 



339 

END 14 

EQU 

*-Z 


0 0 324 

00704554 



34 0 


RTJ 

MKSCREAM 


00325 

54177777 X 



341 


LOI 

QLKFLAG,Xi 

O 

0 0 326 

02504324 



342 


I JD 

*— Z-2»Xi 


0 0 327 

54177777 X 



343 


LOI 

BUSY,XI 


0 0330 

02504324 



344 


IJO 

END 14,XI 


0 0 331 

01004341 



345 


UJP 

ENDIT 02 

o 





846 





04332 



347 

ENQIT 

EQU 

*-Z 


00332 

14677777 X 



348 


ENA 

RUNIBIT 

O' 

00333 

35000303 X 



349 


SSA 

INHIBIT 

0 0 334 

4UQ0Q333 X 



35 0 


ST A 

INHIBIT 

0 0 335 

77o300 0 0 



351 


CRA 



0 0336 

14600000 



352 


ENA 

0 

o 

0 0 3 3 7 

77634000 



353 


ACR 


0 034 0 

00704566 



35 4 


RTJ 

GETSYM8 


0 4 o h 1 



355 

EN0ITQ2 

EQU 

*-z 


00341 

77730000 



356 


VFQ 

A12/DINT 

o 

0 0 342 

14605210 



3 5 7 


ENA 

PARITY 

0 0343 

■44 0 0 0 0 22 



358 


SNA 

00022B . ' 

00344 

44000325 X 



35 9 


SWA 

QLKFLAG 


0 0 34 5 

53430036 



36 0 


TIM 

LEVEL,0 


0 0 346 

14600110 



361 


ENA 

HOB 

o 

U 0 347 

44000005 



362 


SWA 

.0 0 0 95B 


0 0 360 

00700004 ■ 



363 


.RTJ . 

000046 


0 0351 

53010022 



; 364 


TMQ 

CLOCK 


00352 

41005307 



365 


sia 

L TIME 

o 

0 0 353 

'14600000 



366 


ENA 

0 

O 0354 

51005275 



367 


OVA 

D6000O ■ 


0 0 355 

13077747 



368 


SHAQ 

-24 


00356 

5.10 0 52 76 



369 


OVA 

TEN 

o 

0 0 367 

42024470 

05116 

a : 

37 0 


SACH . 

DA TEMSG+12 


0 0 360 

4 3 0 24471. 

05.116 

i 

371 


SQCH 

DATEMSG+13 


Q0 361 

53020037 



37 2 


TMA 

DATEFILE 


00362 

17600037 



373 


AHA 

3 7B 

o 

0 0 36 3 

13077747 



37 4 


SHAQ 

-24 

0 0 364 

510 0-5 2 76 



375 


OVA 

TEN 


0 0 3 65 

42024466 

0 51 1 5 

£L 

376 


SACH 

OATEMSG+10 


0 0 366 

43024467 

.0 51.15 

3 

377 


SQCH 

OATEMSG +11 

o 

0 0 367 

53020037 



37 8 


TMA 

DATEFILE 

0 U 37 0 

17601740 



37 9 


ANA 

0174 0B 


0 0371 

13077742 



32-0 


SHAQ 

- 29 


0 0372 

51005276 



381 


DVA 

TEN 

o 

0 0 373 

42024460 

0 5114 

0 

3§2 


SACH 

DATEMSG+4 

0 0 3 7 4 

4 3 Q24461 

05114 

i 

38 3 


SQCH 

DATEMSG+5 


0 03 75 

53020037 



384 


TMA 

DftTEFILE 


0 0 376 

17636000 



385 


ANA 

36 0 0 0B 

o 

0 0 377 

13077735 



886 


SHAQ 

-34 

0 040 0 

51005276 



387 


OVA 

TEN 


00401 

42024455 

0 5113 

1 

338 


SACH 

DATEMSG+1 


0 0 40 2 

43024456 

05113 

2 

38 9 


SQCH 

DATEMSG+2 

o 

00403 

53010037 



390 


TMQ 

DATEFILE 

0 0404 

13077761 



391 


SHAQ 

-14 


0 04 0 5 

17700177 



8 9 2 


ANQ 

1778 


0 0406 

51005276 



393 


OVA 

TEN . 

o 

0 0 407 

42024463 

05114 

3 

39 4 


SACH 

DATEMSG+7 


0 0410 

43024464 

05115 

0 

395 


SQCH 

DATEMSG+8 


00411 

110 2 44 5 4 

05113 

0 

89 6 


EC HA 

OATEMSG 


0 041.2 

14700017 



397 


ENQ 

DATEMSGL 

o 

0 0 413 

14204623 



39 8 


ENI 

PCK0O,X2 

0 0414 

01000264 X 



39 9 


UJP 

OPM SG 


O 


o 


IDLE FOR ABOUT 10 SECONDS 


MORE OR LESS 
SAVE Q 

GO SCREAM FOR A WHILE 
GET Q BACK 
IF IOBUSY CHANGES 
CHECK AGAIN 

LOOP SOME MORE 


NOISE IN CASE 
IS TABLES BUSY 
KEEP WAITING IF SO 
IS THE TYPEWRITER BUSY 
LOOP IF BUSY 


GET RUN IDLE BIT 


ENABLE THE CONDITIONS REG. 


GO GET SYMBOLS BLOCK INFO 


DQNFT ALLOW SCHEDULR TO PROCESS 
PARITY ERRORS 

PREVENT TABLES FROM WORKING 
SACK TO LEVEL ZERO IF AUTODUMP 
ENTRY 

MAKE SURE THE CLOCK IS WORKING 

BY SIMULATING A CLOCK INTERRUPT 

LOAD THE CURRENT CLOCK 

SAVE FOR SECURITY BLOCK 

SET AG = CLOCK 

CONVERT TO MINUTES 

SET AQ = MINUTES 

STORE THE MINUTES DIGITS 

LOAD THE DATE AND HOUR 
LEAVE THE HOUR. 


STORE THE HOUR INTO THE MESSAGE 

LEAVE THE DAY OF THE MONTH 


STORE THE DAY INTO THE MESSAGE 


SET AQ = MONTH 

STORE THE MONTH INTO THE MESSAGE 


LEAVE THE YEAR IN AQ 

STORE THE YEAR INTO THE MESSAGE 


ENTER THE RETURN 
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402 - THIS SUBROUTINE WILL SEARCH FOR THE NEXT AVAILABLE LOCATION IN THE * 

403 . * PARTICULAR DEVICE SAVE BLOCKS » SOMETIMES. THE QUES WILL NOT BE * 




404 

* EMPTIED BY 

INITIAL, ;§g„END„ 

WILL HAVE TO APPEND TO THEM.. 




******** 

v t vvv v vr 

V V V V V' V v •¥■ V V V 




4 06 
407 






0 4415 

40 8 

FINDIT 

ECU 

*-z 


0 0415 

01000000 

40 9 


UJP 

IMPURE 


0 0 416 

47104461 

410 


STI 

FX1SVE,XI 

SAVE XI 

0 0417 

47305270 

411 


STI 

E N T L ) X 3 

SAVE LENGTH OF ENTRY 

00420 

14301000 

412 


ENI 

W PFB -> X 3 

WILL FORCE FIRST READ 


0 4421 

413 

FINOLP 

EQU: 

*-Z 


0 0 4 21 

053U1000 

414 


ISG 

WPFB,X3 

SKIP IF NOT IN THIS BUFFER 

0 0 422 

01004447 

415 


UJP 

BLKFND 

HOVE FOUND THE ELEMENT 

00423 

20005273 

416 


LDA 

TEMPBLK 

GET BLOCK TO READ 

0 0 424 

04400000 

417 


A S 2 ™. j S 

0 

SKIP IF BLOCK ADDRESS -0 

00425 

01004431 

418 


UJP 

FI PRO 

OK PROCEED ON 

0 0426 

04301000 

419 


ISE 

WPFe,X3 

SEE IF END OF BLOCK 

0 0 427 

00004427 

420 


HLT 

*-Z 

DEFECTIVE FILE STRUCTURE 

0 0 430 

01004460 

421 


UJP 

FNDIT 

FOUND LAST BLOCK. 


04431 

422 

FI PRO' 

EQU 

*~z 


0 0 431 

14101000 

423 


ENI 

WPFSf XI 

WANT TO READ WPFB WORDS 

0 0 432 

142 7 7 777 • X 

424 


ENI. 

READ* X2 

SPECIFY READ 

0 043 3 

21005266 

425 


LOG 

COREADO 

GET CORE ADDRESS 

00434 

00705216 

42 6 


KTJ 

MSI 0 

GO DO READ 

0 0 4 34 

20007001 

427 


LDA 

COR E + i 

GET THIS BLOCKS BACKWARD POINTER 

0 0436 

21005267 

42 8 


LDQ 

8ACKFTR 

SEE IF WHAT IT SHOULD BE 

0 0437 

Q3404441 

42 9 


AQJtEQ 

j-Z+2 

SKIP IF OK 

0 0 440 

00004440 

43 0 


HLT 

t*7 ■ 

DEFECTIVE FILE STRUCTURE 

0 0441 

20005273 

431 


LDA. 

TEMPBLK 


0 0 442 

40005267 

43 2 


STA ' 

8AGKPTR 

UPDATE BACK POINTER 

0 0 4 43 

20007030 ' 

433 


LDA 

CORE 


0 0 444 

40005273 

434 


STA 

TEMPBLK 

UPDATE FOR NEXT ADDRESS 

0 0 4 4 5 

15377001 

4 J 6 


INI 

-HPFU*2,X.3 

SUBTRACT FROM WHERE WANT TO BE 

0 0 446 

01004421 

436 


UJP 

FINOLP 



0 444 7 

% <3 ■ i 

3L.KFN0 

EQU 



00447 

2530 70 Q 3 

438- ■ 


L D'AQ. 

C0R.EtX3. 

GET NEXT ELEMENT 3FECIFICATION 

0 0 450 

03304457 

.. 43 8- . 


AZJiLT 

: POSFND 

POSSIBLE FIND - CHECK FOR Q 


0 4451 

440 

NTFHO 

EQU 

*-Z 


0 0 451 

13 0 0 0 Q 3 0 

441 


SHAG ■ 

24 

COUNT OF ELEMENTS TO A 

0 0 45 2 

17677777 

■ 442 


ANA 

77777B 

CHECK ENTRY COUNT ONLY NO LENGTH 

0 0 453 

50005270 

44 3 


MU A 

EMIL 

MULTIPLY BY ENTRY LENGTH 

0 0 4 5 4 

53740000 

44 4 


IAI 

. • X 3 ' 

THIS IS WHERE WE SHOULD LOOK 

0 0455 

15 3 0 0 0 tl 2 

445 


INI 

2,X3: 

ADO 2 FOR HEADER SPECIFICATION 

0 0456 

0 10 C 4 4 2 i 

446. 


UJP . , 

. FIMOLP.. 

GO LOOK SOME MORE 


0 445? 

44 7 

POSFNO 

EQU 

* ~ 2 


0 0 457 

0310 4451. 

448 


AZJ*NE 

H 1 r N 0 

NOT ZERO - THEREFORE.NOT END 


04460 

4 4 9 

FNOlf 

EQU 



0 0 460 

47 3 0 447 0 

45 0 


STI 

CU'RLOC j X3 

SAVE POINTER FOR CURRENT LOG. 


0 4461 

.... 451.. . 

.FX13VE 

EQU 

**.— y 


0 0461 

14100000 

45 2 


ENI 

IMPURE » XI 

■RESTORE XI 

0 0 462 

01004415 

4.5.3 ■' 


UJP 

FINDIT 



CD 

0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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ENDOS3 


0 0507 
0 0 510 
0 0 511 
0 0512 
0 0513 
0 0514 
0 0515 
0 0516 

0 0517 
0 05 2Q 
0 0521 

00522 
0 0 523 
0 05 24 

00525 
0 0526 
0 0 527 


00530 
00531 
00532 
00533 
0 0534 
0 05 35 
00536 


1447777? 

40107000 

02504510 

200115267 

40007001 

20005273 

40005267 


■ V V V V V V V V V -1 


» v V '{• V V ' 




* t v 6' -V 


V V ' 1 “ V V V V * 


* v v -v v v -r -r vv Y v -v t v v v -V- t 



0 4^63 

* 45 b 

457 

4 5 8 

45 9 

46 0 

46 2 

463 

* THIS SUBROUTINE WILL MOVE 

* X 2+1 TO THE OUTPUT BUFFER. 

* THAT NEED BE OONE WHILE 8U 

V* 

* _ B LOCK DN -_ IS „ C A L L£D _ T O _ EMPT-Y 

V V V V V V V V ~i~ T V V V V V V Y V Y Y V Y V Y Y Y Y Y Y V Y ' 

FILE!T EQU *-Z 

0 0 46 3 

01000000 

4 6 4 


UJP 

IMPURE 

0 0464 

47104525 

46.5 


STI 

FIX1SVE»XI 

00465 

47204517 

466 


STI 

LOADINS*X2 

i) 0466 

47304522 

467 


STI 

MVCNT,X3 

0 0 45 7 

14300001 

- 468 


ENI 

1.X3 


0 4470 

469 

CURLOC 

EQU 

”-Z 

0 0470 

14100000 

470 


LMI 

IMPURE,XI 


04471 

471 

8GNMVLP 

EQU 

*-2 

0 0471 

0510100U 

472 


ISG 

WPFB *Xi 

0 0472 

01004517 

473 


UJP 

LOADINS 

0 0473 

14100000 

474 


ENI 

0,Xi 

0 0474 

14200001 

475 


ENI 

i * X2 

U 0*17 5 

7 7 7 3 0 Q 0 0 

476 


VFD 

A12/DINT 

0 0 476 

00777777 X 

47 7 


RTJ 

GETBLK 

00477 

40 0 070 0 0- 

47 8 


STA 

CORE 

UU500 

40005273 

479 


STA 

TEMPBLK 

0 0 5 01 

20005267 

480 


LDA 

BACKPTR 

0 05 02 

21005286 

481 


L O Q 

COREAOO 

0 050 3 

14277777 X 

48 2 


ENI 

WRITE,X2 

0 0504 

14101000 

48 3 


ENI 

W P F B , X1 

0 0505 

00705216 

484 


RTJ 

MSIO 

0 0506 

14100777 

485 


ENI 

WPFB-1,XI 


THE ROUTINE WILL TAKE CARE OF ALL I/O 






48 6 
48 7 
4 3 8 

489 

490 

491 

492 


ENA*: 

STA 

IJD 


STA 

LOA 

STA 


GORE *X1 
*-Z-l,XI 

BACKPTR 
CORE + .1 
TEMP8L.K 


14100002 

493 


ENI 

' 2,Xi 

0 4517 

494 

LGADINS 

EQU 


203 3 0000 

495 


LDA 

IMPURE,X3 

40107000 

496 


STA 

CORE,XI 

15100001 

497 


INI 

1 , X1 - 

0 452 2 

498 

MVCNT 

EQU 

7 

10300000 

499 


1ST 

IMPURE,X3 

01004471 

-500 


UJP 

3GNMVLP 

47104470 

5 01 


c y t 

CURLOC,XI 

0 4525 

5 92 

FIXISVE 

E QU 


14100000 

5 0 3 


ENI 

IMPURE,XI 

54204517 

5 04 


LDI 

LQADINS*X2 

01004463 

6 0 S 

506 

* 

UJP ' 

FILE IT. 

0 4530 

507 

8 LGCKQN' 

EQU 


01000000 

508 


UJP 

IMPURE 

14101000 

509 


ENI 

MPf6,X1 

14200503 X 

510 


ENI 

WRITE,X2 

21005266 

511 


LDQ 

COREAOO 

200U5267 

512 


LDA 

BACKPTR 

00705216 

5 i 3 


RTJ 

MSIO - 

01004530 

514 


UJP 

. BLOCKDN 


SAVE XI 

WHERE DATA COMING FROM 
SAVE NUMBER TO MOVE 
START AT X2+1 

CURRENT LOCATION IN XI 

IS BUFFER FULL 
NOPE PUT WORD IN 
DRIVE ZERO I HOPE 
GET ONLY ONE BLOCK 

GO GET FILE BLOCK 

SAVE THE NEW FORWARD POINTER 

WHERE FULL BLOCK SHOULD SO. 
GET CORE ADDRESS 
FUNCTION 

WRITE OUT FULL BLOCK 


FILL SUFFER WITH -0 
LOOP 

FIX BACKWARD POINTER FOR NEXT 
TIME. ADDRESS FOR THIS BLOCK 

FIX XI 

GET WORD TO MOVE 
PUT IN BUFFER 
INC BUFFER POINTER 

SEE IF DONE 
GO CONTINUE 
SAVE CURRENT LOCATION 


RESTORE XI 
GET X2 BACK 


LENGTH 

FUNCTION 

WHERE TO GO 
GO WRITE IT OUT 

EXIT 






"V* -Y ■ -if •V' Y YYY Y Y Y -V"’ -TT ' 

YT -Y -Y» *Y’- 4*” Y~ Y" Y? Y Y*^ VY Y Y Y Y YV 




517 

*.R O U TIN E _ T O 

LOGOFF THE PHANTOM 






-r Y Y Y Y Y Y Y V Y Y Y Y Y Y V Y Y 


0 4 5 3 7 


519 

LOGOPH EQU 

”-~Z 

0 05 37 

01000000 


520 

UJP 

IMPURE 

0 0540 

54377777 

X 

521 

LDI 

PSABLK,X3+PSA 

0 0 541 

05300001 


522 

ISG 

1,X3+PSA 

0 05 42 

01004537 


5 23 

UJP 

LOGOPH 

00543 

7 7 7 3 0 0 0 0 


524 

VFD 

A12/DINT 

0 0 5 T 4 

14600034 

x; 

525 

ENA 

OPTERM 

00545 

00700035 

X , 

52 6 

RTJ 

CHQSET 

0 05 46 

77740000 


52 7 

VFD 

A12/EINT 

0 0 5 47 

00704554 


528 

RTJ 

MKSCREAM 

0 055 0 

20000540 

/■ 

529 

LDA 

PSABLK 


* -v v •**'“ v *r -y - 


• T *V V “V 


'h T "TT ' 


l Jf.jg.3f -Y' & Jfr V TVT1? 


I * * * % * * * * 3T- ^ Ar * * * * ;****.****#*****-** ^ * * 

ROUTINE TO LOGOFF THE PHANTOM 

SEE IF LOGGED ON 

SKIP IF SO 

EXIT IF NOT 

3AFTY 

SAY OPERATOR TERMINATION 
LET IT HAPPEN 
SCREAM IF NEEDED 
CHECK TO SEE IF DONE 
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ENO 0 33 


881^ 


G 4 b 0 0 0 0 0 

u i u o h ip a / 


Q 0 5 5 3 010 0 453/' 


-7-_Z-3 
LOGOPH 


EHiP HlE^NE 

DONE - RETURN 


* -r v "«- v -v *4* '4* »*« v -v -i* - 


» v v v v -f "j* v v v -4* -v* -»* *r ‘ 


* •>* ir w v “v y v *i' v w ' 4 ' f -r v v v w '4* - 


U 0554 


0 0 555 
0 0 556 
0 0 55 7 
00560 
0 05 61 
0 0562 
U 0 5 6 3 
0 0564 
0 0565 


0 4554 
01000000 

04555 
20077777 
03004554 
14100/00 
4710 45 61 
14200000 
0 26Q4562 
16477777 
02504560 
01004555 


ROUTINE TO SCREAM IF SCREAM FLAG IS SET. WILL HANG TILL THE FLAG * 
IS UNSET. .. ..... ... ^ 

MKSCREAM EQU *-Z 

UJP IMPURE ROUTINE TO MAKE NOISE FOR OPERA! 

* OR 

SGREAMLP EQU *-Z 

LDA SCREAM GET FLAG 

AZJ»EQ MKSCREAM NO NOISE NEEOEO 

ENI 7 0 Q B »X1 

STI *-Z+l,Xi TRANSFER INDEXES 1 TO 2 

ENI IMPURE,X2 

IJO *-Z ,X2 

XOA»S -0 


i i x 
ENI 
IJO 
XOA»S 


SCREAMLF 


LOOP ON 


O 


O 




CD I 

■I 
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11 ... EN00S3 









V V V V V V V V V 

V -V* V V 

V V V V V V V '«* V *V V V V -v V 

■V V V T V V Y V Y 

Y V V Y Y Y Y Y Y Y Y Y Y V Y Y Y Y Y Y V Y Y V Y V Y Y V 'l' Y YY 



55 3 

r 








55 4 

£1 r ■'* 

V 

THIS 

SUBROUTINE WILL 

READ IN 

THE SYMBOLS BLOCK 

a 



. ! 0 JO 

t 'r v v v v v v -i* 

-1* V V -v 

T T V *«* V V '»* V W V V V V V 

Y V V Y Y Y Y Y 

'V* Y 'V' Y-^Y Y Y -Y- Y Y V Y V Y Y Y '/■ Y Y Y Y YY 1 Y Y Y Y Y Jr 

o 


04566 

553 

GETSYMB 

EQU 

*-2 



o 

0U566 

01000000 

55 9 

5b Q 
561 


UJP 

IMPURE 





552 

563 

*sr 

CALC 

THE ACTUAL CORE 

ADDRESS 

OF THE XCORE^ SUFFER FOR MSIG 


09 567 

14607000 

564 


ENA 

CORE 


COMPUTE THE ABSOLUTE ADDRESS OF 


0 05 70 

13077764 

, 56 5 


SHAQ 

-11 ' 


CORE 

o 

0 0571 

53600000 

566 


TAI 

X2 


PAGE NUMBER TO X2 


1) 0572 

77654000 

567 


PFA 

0+PFRiX2 




0 0573 

12077775 

56 3 


SHA 

-2 




0 05 74 

13077762 

569 


SHAQ 

-13 


THE ADDRESS IS NOW IN Q 

o 

0 0 575 

410 0 52 6 6 

57 0 


STQ 

GOREAOO 






571 








00576 P 

572 

ENOSYHBK 

EQU 





0 0576 

1460 QUO 0 

573 


ENA 

. IMPURE 


ENTER SYMBOL BLOCK ADDRESS 

o 

0 0577 

14101000 

5 7 4 


EMI 

WPF8,X1 


READ i FILE SLOCK 


.0 060 0 

14200432 X 

575 


EMI 

REA0,X2 




00601 

21005266 

57.6 


LOQ 

COREADD 


ADDRESS TO READ INTO 


0 0602 

00705216 

577 


RTJ 

MSI 0 



o 

0 0 6 0 3 

14300000 

578 


ENI 

0,X3 


INITIALIZE FOR THE LOOP 


0 4604 

579 

BKR01 

EQU 

-“--Z 




0 06 04 

14200000 

58 0 


ENI 

0 * X 2 





0 46 0 5 

581 

3KR02 

EQU. 

*-z 



o 

0 0605 

25207000 

582 


iu. 0 A. Q 

CORE.X2 



0 06 06 

33305277 

5.8 3 


SBAQ 

BLKLIST.X3 


COMPARE THE TWO SYMBOLS 


0 0607 

13 40 0 0 0 ii 

58 4 


sc a a 





0 0 610 

03004615 

585 


A2*j 5 

E. Q . ' . . 8KR-0 3 . ■■ : 


JUMP IF FOUND 

o 

00611 

16200503 

586 


INI 

■3* X2 : 




00612 

0 520 0 ? /' 6 

58 7 


ISO 

.-: ••• HPFB -2 >.X2 




0 0 613 

01004605 

. 588 


yjp .. 

..... 8KRU2 . \ 




0 0614 

QUO 046.14 

5 89 


HLf : 

*-2... 


SYMBOL NOT FOUND 

o 


04615. 

59 0 

BKR03 

EQU 




0 0 615. 

20207002 

591 


LDA 

.GORE+2 j X2 


LOAD THE VALUE. OF THE SYMBOL 


0 U616 

40305277 

592 


STA 

3 L K LIS T » X 3 


STORE THE VALUE INTO THE SYMBOL 


0 0617 

15300002 

5 9 3 


INI. 




o ;! 

0 062 0 

0 5 i 0 0 0 10 

5 9 k 


T C Q 

8LKL.NTH, X3 


SKIP IF NO MORE SYMBOLS TO FIND 


0 06.21 

01004604 

S95 


.yjp 

• .SKR.31 


OTHERWISE. LOOP BACK 


0 0622 

010 0 46 6 0) 

5 96.. .,. 


tup . 

. GETSYM8 


RETURN 


o 


o 

o 

o 

o 

o 

o 

o 


0 

Cl 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 

'w' 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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PAGE 

12 ENQ0S3 


U (J 6 2 3 


X 


59 3 

59 9 

PCKOO 

PUl^ELIST »X 3 

0 0 624 

01004643 



60 0 

UJP 

PCK03 


0 462 5 



6 01 

PCKOi EQU 

*-2 

0 0 625 

1537777b 



6 02 

INI 

-i,X3 

0 0 6.26 

25377777 

X 


6 0 3 

LGAQ 

PURETABL,X3 

0 0 627 

44 0 0 4 6 34 



b 0 4 

SWA 

PCK02 

0 0 630 

16677777 



605 

XO A 

7 7 7 7 7 B 

0 0 631 

53040000 



60 6 

AQA 


0 0 6 32 

53600QQ0 



60 7 

TAI 

X2 

0 0 6 3 3 

14600000 



60 3 

ENA 

0 


0 48 3 4 



609 

PCK02 EQU 

*-Z 

0 0 634 

36200000 



610 

SCA 

IMPURE,X2 

00635 

02604634 



511 

IJD 

PGKQ2,X2 

0 0 6 36 

05600001 



612 

ASG 

1 

0 0637 

0 3 0 0 464 3 



613 

A'Z J»EQ 

PCK03 

0 0640 

11024512 


0 5.122 2 

614 

EC HA 

PCERMSG 

0 0641 

14700043 



615 

ENQ 

PCERMSGL 

0 0 642 

01005073 



616 

. . UJP 

• ABEND 





.617 







618 




0 4643 



619 

PCK03 EQU 

*-Z 

0 0 643 

027 04625 



62.a 

I JD 

PCKOI,X3 


CHECK ALL THE PURE CODE REGIONS 
TO INSURE THE SYSTEM IS INTACT 

LOAD THE REGION POINTERS 
STORE THE BEGINNING ADDRESS 

FORM THE LENGTH OF THE REGION 


JUMP IF THE REGION IS UNCHANGED 
OUTPUT A MESSAGE 

JUMP AND CHECK THE NEXT. REGION 
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0 0844 14377777 X 

D 4 b 4 5 

0 0.b45 2u 3 0 00.0 0 
0 0 646 030 0466? 

00647 53 7U 0 0 0 0 

U0650 21300002 

0 4651 

00651 14100544 X 

0 4652 

0 0 652 20:100000 

00653 03004645 

00654 53600000 

00655 2U200001 

00655 03404662 

00657 53200000 

00660 5350 00 00 

00661 01004652 

0 466 2 

00662 20200000 
00663 40100000 

00664 21200002 

00665 41300002 

00666 01004651 

0 466 7 

U 0667 1410 0 777 

00670 14600000 

00671 4010 70 0 0 

00672 02504671 

00673 14100651 X 

00674 14200000 

04675 

00675 20100000 

00676 03004705 

00677 53530000 

00700 251.0 000 1 

00701 45207000 

00702 15200002 

0 0 703 ‘'05201001 

00704 01004675 

00705 00004705 

0 4706 

00706 14105205 

00707 47105250 

00710 14100011 

00711 47105223 

0 07:12 14101000 

00713 14277777 X 

00714 21005266 

0 0 715 2 0 0 U 5 2 7 ? 

00716 00705216 


H A b L 

13 END0S3 


622 

623 

SUB 0 1 

k q 6 

yX|LIST,3 

624 


LUA 

0 , 3 

625 


AZJ,EQ 

SUB 05 

626 


TAI 

: 3 

627 


LOU 

2,3 

62 3 

SU30 2 

EQU 

r-2 

629 


EMI 

MXSLIST,! 

63 0 

3UB0 3 

EQU 

*-Z 

6 31 


LOA 

0 , 1 

632 


AZJ,EG 

3UB01 

63 3 


TAI 

9 

.6 34 


LUA 

1,2 

635 


AQJ , EG 

sue 04 

636 


TIA 

2 

63 7 


TAI 

1 

638 


UJP 

SUB 03 1 

6 39 

3UB04 

EQU 

*~Z 

64 0 


LOA 

0 , A2 

641 


3T A 

0,1 

642 


LUQ 

2,2 

643 


STQ 

2 • 3 

644 


UJP 

SUB 02 

b h 5 

SUB 05 

E QU 

*-Z 

646 


EMI 

WPF 8~1 » XI 

647 


ENA 

0 

64 8 


STA 

CORE,XI 

649 


I JO 


65 0 


£NI 

MXSLIST,.! 

651 


ENI 

0,2 

65 2 

SUB06 

EQU 

*-Z 

653 


L u A 

0,1 

654 


AZJ,EG 

SUB 0 7 

655 


TAI 

1 

65 6 


LOAQ 

i , 1 

6 5 7 


STAG 

v CORE,X2. - . 

S;? 8 


INI : ' 

2,2 .V‘ 1 

659 


ISG 

■ WPFB+i,.X2 

6 6 SI 


UJ.P : .: 

■ SUB 06 1 

561 


HLT 

■,*-Z • 

662 

3U807 

EQU 

*~2 

66 3 


ENI 

SU3PRG8»X1 

664 


. S. 1 1.. 

,IR»Xi 

665 


ENI 

9 ,.X t : . 

666 


'Sill' ■ 

ERRCNT , XI 

66 7 


ENI 

WPFB,XI 

668 


ENI’-:.'. 

WRITERS,X2 

66 9 


LOG 

• • COREADO 

670 


LOA 

MXSBLOCK 

6 7 I 


RTJ 

MS 10 




REHOVE MULTIPLE SUBSTITUTIONS 


FILL A FILE SLOCK WITH ZEROS 


ENTER THE ERROR ADDRESS 
ENTER NUMBER OF TIMES TO TRY 
WRITE OUT THE SUBSTUTION BLOCK 
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673 * SECTION TO PUT CURRENT DATE INTO SECURITY BLOCK 

6 7 4 


0 j 7 L 7 

i46U5ZbZ. 

67 5 

EM A 

SMASH 

ENTER THE ERROR ADDRESS 

0 0 720 

44J U523 0 

676 

SWA 

IR 


0 0721 

21 lJ L) 5.266 

67 7 

L 0 Q 

COREADD 


0 0 722 

20005305 

678 

LDA 

SECURITY 


00723 

14101000 

67 9 

. ENI 

MPFB , XI 

READ IN THE SECURITY BLOCK 

0 0724 

14200600 X 

6 & 0 

ENI 

REAQ,X2 


0 0 725 

00705216 

681 

RTJ 

MS 10 


0 0726 

53020037 

682 

TMA 

DATEFILE 

GET CURRENT DATE 

00727 

21005307 

633 

LuQ 

LTIME 

GET CURRENT TIME 

0 0 7 3 0 

45007002 

6 84 

STAQ 

CORE+CRDATEW 


0 0731 

1417777/ X 

635 

ENI 

IDLE,XI 


00732 

21177777 X 

6 8 6 

LUU 

WC TIME,XI 

GET THE NUMBER OF SECONDS THE 

0 0 733 

14600000 

687 

ENA 

0 

SYSTEM WAS RUNNING 

0 0 7 3 4 

40007000 

688 

STA 

CORE 

CLEAR SYSTEM RUNNING BIT 

0 0 735 

32007004 

639 

AD AQ 

CORE+SYSWCT 

ADO IN THE. TIME TO DATE 

0 0 736 

45007004 

690 

STAQ 

CORE+SYSWCT 

STORE THE NEW TOTAL BACK 

0 0 737 

14105213 

691 

ENI 

SECPR03,XI 

ENTER THE ERROR ADDRESS 

0 0 740 

47105250 

692 

STI 

IR , XI 

9, XI 


0 0741 

14100011 

693 

ENI 

ENTER NUMBER OF TIMES TO TRY 

0 07 42: 

47105223 

694 ■ 

STI 

ERRCNT,XI 


00743 

21005266 

695 

LDQ 

COREADD 


0 0 744 

20005305 

696 

LDA 

SECURITY 


00745 

14101000 

697 

ENI 

WPF B,X1 


0 0746 

14200713 X 

- 698 

E NI 

WRITERS,X2 


00747 

UQ705216 

699 

RTJ 

HSIQ 
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END0S3 
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0> 

ij Q 7 5 0 

14677777 

X 

701 


ENA 

OISKPNT 

0 0 751 

15677777 

X 

702 


IN A 

MSUNITS 


0 0 752 

156 0 u 7bl 

X 

703 


IN A 

MSUNITS 


0 0 753 

44005265 


7 04 


SWA 

DISKBPNT 

(J 

0 0754 

14 6 0 6263 


70 5 


ENA 

MZERO 

‘•Jf 

0 0755 

13077764 


7 0 6 


SHAQ 

-11 


0 0755 

53600000 


7 07 


TAT 

X2 ' 


0 0757 

7.7 65 40 13 0 


70 8 


PFA 

0 *PFR,X2 

O 

00760 

12077775 


709 


SHA 

-2 

0 0 761 

13077762 


710 


SHAQ 

-13 


00762 

41005274 


711 


3 TQ 

MZEROADD 


0 0 763 

14100752 

X 

' 712 


E.N I 

MSUNITS,XI 

o 

0 0 764 

16177777 


713 


XOI 

777778,XI 


GG765 

47105024 


714 


STI 

O T 0 6 , X1 


0 0766 

16177777 


715 


XOI 

777778,XI 


0 0767 

15177777 

X 

716 


■IN I 

HSUNITM1,XI 

o 


04770 


717 . 

0102 

E 00 

Z 

0 0 770 

2G177777 

X 

718 


LDA 

ARRAYT8L,XI 


0 0771 

. Q3005067 


• 719 


A Z »J j E, Q 

DTE NO 


0 077 2 

53700000 


. 720 


TAI 

X3 

o 

0 0 773 

20300000 


721 


LOA 

0 ,X3 

0 0774 

47105057 


722. 


STI 

OT10, XI 


0 07 75 

03105010 


72 3 


A 2 J. * N.£ 

DIO 4 


0 07 76 

40100770 

X 

724 


STA 

ARRAYTBL,XI 

o 

0 0 777 

20100750 

X 

725 


LDA 

OISKPNT,XI 

01000 

40005264 


726 


STA 

MZERO+1 


010 01 

20300001 


72 7 


LOA 

1, X 3 


010 02 

15600 0 02- 


72 8 


IMA 

2 

o 

010 0 3 

21405265 


72 9 ' 


L, Ll Q t X 

DISKBPNT - 

01004 

■ 53500000 


730 


TAI 

XI 


010 05 

14477777 


731 


ENA ,S 

777779 


010 06 

45300000 


732 


STAQ 

Q , X 3 

o 

310 07 

Q1U050 1 42 


73 3 

734 


UJP, . 

0108 



050 10 


736 

OT 04 

EQU, 

,*-z 


01010 

53700000 


73 6 


TAI 

X3 

o 

01011 

2 0 3 0 0 0 OS 41 


7 ; 3 7 - ... 


LDA ' 

. 0 , X3 

0 1012 

4 0 5 0 0/7 6 

X 

738 


STA, I 

ARRAYTBL,XI 


01013 

21405265 


739 


LQQ, X 

0.I.SK8PN.I ■.:* 


01014 

41300091 


7 4 0 


STQ 

.1» X3 

o 

01015 

2110 0 ? 7 7 

V 

A 

741 


LOQ 

OISKPNT,XI' 


01016 

41005264 


742 


si a 

MZERG+i 


01017 

41405265 


743 


STQ,I 

DISKBPNT * 



■ 05020 


4 L r 4 

D T 0 5 

EQU 


o 

01020 

14200001 


| 4^ 


ENI- . 

iV-X2' 

01021 

05100763 

x : 

/ 4 6 


; XS G : 

MSUNITS, XI 


' 01022 

0 i 0 0 5 0 2 5 


..74.7 : 


. UJP 

: «- : «24 3 . 


01023 

14200004 


748 • 


EMI 

4 , As£ 

o 


05024 


74 9 

' DT 06 . 

'EQU 

^—2 

01024 

15100000 


75 9 


INI 

' IMPURE,XI 


01025 

0 Q 7 a ti 4 7 6 

X 

751 


K T *J 

GETBLK 


01026 

54105 U 57 


752 


LDI 

DTI'OiXl 

o 

01027 

40101.015 

' X 

75 3 


STA 

OISKPNT,XI 

01030 

40300000 


754 


STA 

0 , X3 


01031 

21005274 


755 


' LOG 

MZEROADD 


0.10 32 

14100001 


73 6 


ENI 

1, X1 

o 

01033 

471U 5 2 2 3 


757 


STI 

ERRCNT,XI 

010 34 

14105061 


75 8 


EMI 

DTI2,XI 


01035 

47105250 


759 


.STI 

IK, XI 

o 

01036 

14100002 


76 0 


ENI 

2, X1 

01037 

14200746 

X 

761 


E N1 

WRITERS,X2 

0104 0 

U0705216 


762 


RTJ 

MSI Q 



0 5 0 4 i 


763 

DT 07 

EQU 

*-Z 


010 41 

14100100 


764 


ENI 

64,XI 

o 


05042 


765 

DTflS 

EQU 

*-Z 

010 42 

53300000 


i 766 


riA 

X 3 


01043 

13077764 


767 


SHAQ 

-11 


01044 

53600000 


763 


TAI 

X2 

o 

010 4 5 

77654000 


769 


PFA 

Q + PFR,X 2 

01046 

12077775 


77 0 


SHA 

-2 


01047 

13077762 


771 


SHAQ 

-13 


0 10 5 0 

20005264 


772 


LDA 

MZERU+1 

o 

01051 

14205262 


77 3 


ENI 

SMASH,X2 

01052 

47205250 


774 


STI 

IR , X 2 


0105 3 

14200011 


7 7 5 


ENI 

9 » X 2 


01054 

47205223 


776 


STI 

ERRCNT ,X2 

o 

010 5 5 

14201037 

X 

77 7 


ENI 

WRIT EN 3 , X2 

0 10 56 

00705216 


77 S 


RTJ 

msi a 



0 5 0 5 7 


779 

DT 10 

EQU 

*-z 

o 









COMPUTE THE ADDRESS OF DISKBPNT 


COMPUTE THE ABSOLUTE ADDRESS OF 
MZERO 


-MSUNITS 
SAVE -MSUNITS 


ARE THERE TABLES IN CORE FOR 
THIS UNIT 

TABLE POINTER TO X3 

SAVE THE UNIT NUMBER 
JUMP IF NOT THE LAST BLOCK 

REMOVE THIS BLOCK 
ICAO THE DISK POINTER 

LOAD THE WORD COUNT 

ALLOW FOR THE SLOCK POINTERS 

LOAD THE BACKWARD POINTER 

SET FORWARD POINTER TO -0 
SET THE POINTERS 


REMOVE THIS BLOCK 

LOAD THE BACKWARD POINTER 
SET THE BACKWARD POINTER 
LOAD THE CURRENT BLOCK 
SAVE IT 

SET THE NEW BACK POINTER 

assume' blocks : : V 

SKIP IF PAGES 

SAY PAGES 

IMPURE = -MSUNITS 

LOAD THE UNIT NUMBER 
SAVE THE NEW POINTER 
SAVE IT ON THE BLOCK ALSO 
LOAD CORE ADDRESS 
ALLOW TWO SETS OF ERRORS 

ENTER THE ERROR ADDRESS 

WRITE JUST 2 WORDS 

7 


WRITE .64 WORDS 

BLOCK ADDRESS TO A 
ALL BUT PAGE BITS TO Q 


LOAD THE DISK AD0RES3 
ENTER THE ERROR ADDRESS 

ENTER NUMBER OF TIMES TO TRY 
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16 £NDOS 3 

0 10 5 7 
UlUbQ 


78 0 
781 


6SJ 



78 2 




0 50 61 

78 3 

DTI 2 

EUU 

010 61 

54105057 

7 34 


LDI 

01062 

20101012 X 

785 


LDA 

01063 

03105020 

73 6 


AZJ 

01064 

10477777 

737 


ENA 

010 65 

40300000 

783 


STA 

0 10 6 & 

01005041 

789 


UJP 



79 0 




05067 

791 

OTENO 

EQU 

010 67 

02504770 

79 2 


I JO 



*-z 

OTlOVXi LOAD THE UNIT NUMBER 

ARRAYT 8 L»XI ARE MORE BLOCK AVAILABLE ON THIS 

ME DT 05 THIS UNIT 

S 777778 FORGET ABOUT ANY MORE BLOCKS 

0 »X 3 
D T 0 7 

*-Z 

0102 ,XI LOOP THRU ALL THE UNITS 









0 

0 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 


o 
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EMDOS3 





79 4 

-7- 

SECTION 




79 5 



0 1U 7 0 

11024473 

t) l 5ilb J 

79 6 


EC HA 

0 i 0 71 

14700010 


79 7 


ENQ 

GIG 72 

01005074 


7 j a 


UJP 


050 73 


799 

ABEND 

EQU 

01U73 

47005102 


8 0 0 


STI 


05 074 


8 01 

END 

EQU 

010 74 

77600400 


3 02 


PAUS 

01075 

01005074 


80 3 


UJP 

0 1076 

63420023 


80 4 


TAM 

G 10 7 7 

53040000 


805 


AUA 

0110 0 

53420033 


80 6 


TAM 

0.1101 

77760000 


807 


CTO 


05102 


80 3 

CRY 

equ 

01102 

04000007 


80 9 


1st 

01103 

00003700 


810 


HLT 

01104 

14101000 


811 


ENx 

0 li 05 

47105106 


812 


STI 

01106 

14200000 


613 


ENI 

01107 

16477777 


814 


XOA, S 

01:110 

02605110 


815 


IJQ 

01111 

02505105 


816 


I JO 

01112 

01005104 


817 


UJP 


24454 


■818 

DATEMSG 

E Q U f C 

01113 

77444461 


819 


BCD, C 


0 0 017 


82 0 

OATEHSGL 

EQU, C 


24473 


821 

ENDMSG 

EQU, C 

01116 

30307777 


822 


BCD , C 


245 0 3 


823 

ASMSG 

EQU , C 

01120' 

62037777 


8 24 


BCD , C 


24512 


825 

PGERMSG 

EQU , C 

01122 

24777762 


826 


BCD , C 


0 0043 


827 

PCERMSGL 

EQU , C 


24555 


• 828 

SUBMESS 

EQU,C... 

01133 

77776445 


8 29 ' 


BCD, C 


0 0062 


830 

SUBMESS'L 

EQU , C 


24637 


8 31 

HARNESS 

EQU ,C 

0 1147 

77777777 


8 32 


BCD, C 


0 0 U 4 3 


833 

PARMESSL 

EQU , G 


24702 


8 3 k 

3EGRESS 

EQU, C 

01160 

77777764 


835 


BCD t C 


0 0 0 6 2 


836 

SECHESSL 

h Q U , C 


24 76 4 


837 

8AD8ATCH 

EQUfC 

0 1175 

77662131 


838 


BCD , C 


0 U 0 3 fa 


839 

3 ADSL 

fcQU»C 

012 04 



840 


BSS 


TO TYPE MESSAGE FOR END OF 0S3 

END MSG 
8 

END 
* - Z 

CRY»0 TELL THE CONSOLE TO CRY 

*-Z 

04 0 0 B SENSE FOR TYPEWRITER BUSY 

*-Z-l WAIT FOR IT 

2.3 B 

338 

7+IMPURE,0 
3 7 0 0 B 

lOOOBtXl MAKE A SCREAMING NOISE 

-~Z+1»X1 

IMPURE,X2 

777778 

*-Z ,X2 

*-2-4, XI 

*-Z~5 

15,aMM/DD/YY HHHHa 
*-Z-DATEMSG 

if — 7 

8,a£N00S3a 
■ — Z 

7,aABENDa 

*-Z 

35 j aSYSTEM PC ERRORS TAKE .OUMPaaaaaaaa 
♦-Z-PCERMSG 

50, aUN ABLE TO WRITE SUBSTITUTION BLOCK TAKE DUMPaaaaa 
: Z-SU8MESS . 

.®~ 2 - 

35 » aHEMORY PARITY ERROR TAKE OUMRaaaaaaa 
3~Z-PARM£SS 

Silt a UN ABLE TO' WRITE OUT SECURITY SLOCK TAKE DUMPaaaaa 
.. *-Z-S£CMESS ' . ■ 

' *■- 2 ■ ■ 

30,AWAITING ON UNENDED BATCH JO0A 
7 _ o a n r a t r H 

0 ' . FIX THE PROGRAM COUNTER 
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0 5205 


8 42 

SU3PR0B 

tub. 

v.- 7 

0121)5 

11024555 

05133 1 

843 


ECHA 

SUBMESS 

01206 

14700062 


844 


EMU 

SU8MESSL 

0 12 0 7 

01005073 


8 45 


UJP 

ABEND 




8 46 





05210 


8 47 

PARITY 

EQU 

*-Z 

01210 

11024637 

05147 3 

84 8 


ECHA 

PARMESS 

01211 

14700043 


849 


ENQ 

PARMESSL 

01.212 

01005073 


85 0 

O iZ 4 


UJP 

ABEND 


05-218 


O l> 1 

8 52 

SECPRQB 

EQU 

*-Z 

01213 

11024702 

05160 2 

853 


ECHA 

SECMESS 

012.14 

1470.0 0 62 


8 5 4 


ENQ 

SECMESSL 

01215 

01005073 


655 


UJP 

ABEND 



O 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


0 


Q) 

Q 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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0 53 

-v- '•* v V T V V r 

V 

V 7-»- V V 1“ V 

r v v v v v -v- v v v v v 'A v v v v r -v v v 

Y Y Y V V Y V Y Y Y Y Y Y Y YY Y v ^ Y Y Y Y Y Y V Y Y Y Y Y Y Y V Y 

* 

a> 



8 59 

* 

PSEUDO 

DISK DRIVER 

"T? 




860 








862 

v v -r v v v y y 

~ir v v v -v v v 

V V V V V -v Y Y Y Y Y V Y Y V Y Y Y Y Y V Y *» 

V Y Y -V- Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y v 4 Y Y Y ^Y Y Y 

a 


0 5 2-16 

863 

MS 10 

EUU 




0 1216 

01000000 

8 64 


UJP 

IMPURE 



01217 

47305233 

86 6 


ST I 

MSI0X3,X3 

SAVE X3 

Q 

U1220 

45005310 

866 


3TAQ 

IOAQ 

SAVE THE ADDRESSES 


01221 

47105312 

8 67 


ST I 

IOX1,X.1 

SAVE THE WORD COUNT 


01222 

47205313 

8 6 8 


ST1 

IOX2,X2 

SAVE THE IO COMMAND 



05223 

869 

ERRCNT 

EQU 

Z 


o 

01223 

14300011 

870 


EMI 

9+IMPURE,X3 

ENTER THE RETRY COUNT 

vy 


05224 

871 

MSIOZ 

EQU 

*-Z 



01224 

47305251 

8 72 


ST I 

HLIM * X3 



01225 

14305260 

873 


ENI 

IOWAIT,X3 


o 

01226 

47105234 

8 7 h 


ST I 

MSFLAG,Xi 



0 1227 

47105237 

87 5 


SIX 

IRFLAG,Xi 

SET THE FLAG TO SAY NO ERROR 


012 3 0 

777 3 0 0 0 0 

8 76 


VFQ 

A12/OIMT 



01231 

00777777 X 

877 


RTJ 

FINK 


o 

01232 

77740000 

87 8 


VFO 

A12/EINT 




0 5233 

832 . 

HSI0X3 

EQU 

^-2 



01233 

14300000 

833 


ENI 

IMPURE,X3 




0 52 34 

8 84 

MSPLAG 

EQU 

*-Z 


o 

01234 

04000000 

8 85 


ISE ■ 

IMPURE, 0 



01235 

0100-5234 

886 


UJP 




01236 

77730000 

387 


VFO 

A12/0INT 




05237 

891 

IRFLAG 

EQU 

*-Z 


o 

01237 

04000008 

892 


I SE 

IMPURE,0 

SKIP IF WE HAD AN ERROR 


01240 

01005216 

893 


UJP 

MSI a 

NORMAL EXIT IF NOT 




894 






01241 

54205313 

895 


LOI 

IOX2,X2 

LOAD THE IO COMMANO 

o 

0.1242 

04200724 X 

896 


I SE 

REAQ,X2 


01243 

01005251 

89 7 


UJP 

.WLIM 





8 9 8 







0 5 249 

899 

IRMAIT 

EQU 

*-Z 


O 

01244 

777 4 0 0 Q 0 

90 0 


VFO 

A12/EIHT 


01245 

54100327 X 

901 


LDI 

SUSY,XI 

IS THE TY.P-E.WRXT.TER BUSY 


0124b 

02505245 

9 02 


IJD 

*-Z-i.,Xi 



01247 

7773Q00U 

903 


VFO 

A12/0IMT 


o 


0525 0 

90 7 

IR . 

EQU 



0 1250 

01005262 

90S 


UJP 

SMASH+IMPURE 

IRRECOVERABLE MASS STORAGE ERROR 




903 







0 5 251 

910 

WLIM 

EQU 

■■ *~z 



01251 

I43GQ0Q0 

9.11 


E NT: 

'IMPURE-,X3 : 

ENTER THE COUNTER 

01252 

54105312 

912 


LOI 

TQXI,X1 

RESTORE THE WORD COUNT 


01253 

25005310 

913 


LOAQ 

IOAQ - v 

AND THE ADDRESSES 


01254 

0270522 

914 


IJD 

MiSI-GZ , X3 


o 

01255 

54305233 

915 


LDI 

MSI0X3*X3 

RESTORE THE CALLERS X3 


0 1258 

01005244 

916 

Of y ' 


UJP 

irwa.it. .. 



012 5 7 

4/005237 

TJX f 

918 . 


ST1 • 

IRFLAG,0 

SAY WE HAD AN ERROR 

O 


" 05260 

919 

IOHAIT 

EQU 

" - 7 



01280 

47005234 

920 


. STI 

MSFLAG, 0 



01261 

01300000 . 

921 


UJP 

0 , X 3 





922 




0 


Q 5 2 6 2 

928 

SMASH 

EQU 

- ■*_ 7 


01262. 

00005262 

924 


HIT 

*-z 




o 


o 

o 

o 

o 


o 
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Y V Y V Y Y Y Y V Y V 'r Y V Y Y Y Y J r Y Y Y J J" Y Y V V Y if Y ‘A Y Y Y 

927 

•v 




928 


STAND 

ALONE DISK DRIVER 


929 

V 




930 

V 

THIS CODE IS NOT CURRENTLY BEING USED BUT IS LEFT HERE IN CASE * 

931 

* 

IT IS 

NEEDED IN THE FUTURE 


932 






v -v- r v v v v -r nr 

-/• -r v v v t 

Y Y Y Y Y Y Y Y Y Ar Y 'll' T 's' V Y “V> V Y Y Y Y Y 

Y -/• v nr y y v y v y -r -T” nr nr nr nr nr nr nr nr nr nr n?* nr nr vr -v- nr nr nr -21 

934 






v J r v v v *ir ^ v v v v v -r -v 

^ Y Y Y Y Y V YY Y V V v Y V Y Y Y Y Y Y Y 

T Y Y V v Y V V Y Y Y Y Y Y Y-^ V Y Y Y Y Y V YYY YY Yif Y T Y^T Y 

936 

*fL 



w 

■v 

93 7 

*RGLA9£LX 

EQU 

*-z 

* 

938 

nr 

EM A 

0 

Y 

939 

^RD LABEL 

EQU 

*-z 


940 

4r 

UJP 

IMPURE 

* 

941 


SWA 

RDLBLCQN 

* 

942 

* 

SHA 

-12 

* 

943 

“T- 

AC I 


* 

944 


IA I 

1 

* 

945 

Y" 

AMI 

000070,XI 

SAVE JUST THE CHANNEL NUMBER * 

94b 

* 

ENA 

1 

* 

947 

* 

SHA 

0,1 

* 

948 

■ # 

XOA 

10000B 

* 

94 9 

* 

SWA • 

RDL8L0VR 

Y 

96 8 


ENI 

WPFB-1,1 

* 

951 


ENA 

G 

* 

■ 95 2 


ST A 

CORE,XI 


95 3 

¥ 

IJO 

*-Z-l,± 

* 

.954 


ENA ,S 

9 

RETRY COUNT * 

955 

*RDL8L0VR 

EQU 

* — 7 


95 6 

* 

I0CL 

IMPURE 

* 

957 


SNA 

RDLBLAGN 

* 

96 8 


EH I 

5 0 0,1 


95 9 

^RDLBLCOM 

EQU 

*-Z 

. . %r 

9 6 3 

*■ 

V.FO. . 

A9/CQN,AI5/IHPURE 

Jg, 

96 1 


IJD 

.*-2-1,1 

4 

962 

* . 

ISG 

1,1 : 

* 

96 3 


U J P 

ROLABELX 

* 

964 


EMM 

- .0 ' 

¥ 

9 6 b 


STA 

ADDRESS 

Y 

966 

A?- 

EMI 

777778,1 

' •*? 

96? 

* 

EXS ■ 

9GS1S,SENSE 

CHECK FOR DISK DRIVE NOT READY * 

968 

^ -y- 

EXS 

03028,SENSE 

SENSE FOR DISK DRIVE BUSY . ■* 

969 

•Y- 

IJD 



97 0 

nr 

EMI 

RDLBLAGN., 1 


971 

■: 

RTJ 

load; 

- -¥• 

.’9 fid 

'}■■ 

SEL 

40 8., SELECT. . 

READ . ‘ * - 

9 ? 3 

& ' 

UJP 

■ RDLBLAGN 


979 


ENA-,3 

*» 

SELECT PROGRAM STATE ZERO * 

9 75 


INPW 

10,CORE,CORE+LABEL 


9 7 6 

¥■ 

UJP 

ROLSLAGN 

; V' 

<J ! i { 

^ . 

RTJ 

WAIT 

. ^ 

S 7 B ■ 


Efil 

LABEL—1,1 

nr' 

979 


£NA,S 

777778 

Tf 

98 3 

>V“ 

SC A 

‘CORE, .XI 

GENERATE ODD PARITY NOR0 * 

981 

*e*' 

IJD 

- -2-1,1 


■ 98 2 

nf 

A2J,NE 

RDLBLAGN 

•V- 

98 3 

^ ' 

AZJ,LT 

RDLBLAGN 

■ * 

984 

nr 

L 0 A 1 

CORE 

LOAD SYSTEM IDENTIFIER * 

98 5 

n?* 

UJP 

RDLABEL 

* 

98 6 

*RDLBLAGN 

EQU 

*■—.2 


93 7 

. ’ ' 'nr . 

ENA 

IMPURE 


988 

TT 

INA ,S 

-1 


98 3 


AZJ.GE 

ROLBLQVR 

» 

990 


UJP 

ROLABELX 

% 

991 

*• 

EJECT 


* 

992 




% 

. 993 

* WRITEX 

EQU 

-~-z 

# 

994 

nr 

UJP 

IMPURE 


995 


RTJ 

PRESET 

* 

99 6 

-ZAP 

EQU 


¥ 

997 

•V* 

I0CL 

3 77 3 

Y 

998 

nr 

E NI 

Z A F , 1 

ENTER THE ABNORMAL ADDRESS * 

999 

V 

RTJ 

CONNECT 

Y 

10 0 0 

A- 

RTJ 

LOAD 


1001 

•V- 

SEL 

4:LB , SELECT 

X 

1002 

•V* . 

UJP 

: 0 , 1 

X 

1003 

V 

ENA , S 

0 

SELECT PROGRAM STATE ZERO * 

1004 

V 

OUT K 

10 , CORE , COR E+TIPF8 



0 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

rv 

o 

o 

o 

o 

O 

O 

o 
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o 

o 
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o 


1005 

* 

UJP 

1006 

V 

RTJ 

1007 


RTJ 

10 08 

■ '-nr 

SEL 

10 0 9 


UJP 

1010 

V 

E N A , S 

ion 

nr 

OUT W 

1012 

nr 

UJP 

1013 

V 

RTJ 

1014 

*■ 

LDI 

1015 

nr 

. UJP 

1016 



1017 

v 


1018 

♦REAOX 

EQU 

1019 

* 

UJP 

1 0 2 Q 

nr 

RTJ 

1021 

-12 A12 

EQU 

1022 

. V* 

IOCL 

10 23 


£NI 

i 0 24 


RTJ 

1025 

nr 

RTJ 

1026 

nr 

SEL 

10 27 

nr. 

UJP 

10 23 

nr 

ENA?S 

10 29 

•V s 

INPW 

1030 


UJP 

1031 


RTJ 

10 32 

*T1 

EQU 

1033 

* 

ENI 

10 3.4 

*nr 

U J P- 

10 35 


EJECT 

1036 

♦LGAU 

EQU 

1037 


UJP 

10 3 3 


SEL 

10 3 9 

■V' 

UJP 

1040 

nr 

ENA , S 

10 41 


OUTH 

1042 

nr 

UJP 

10 43 

■v 

RTJ 

1044 


UJP 

10 45 

* 


1046 

♦WAIT 

EQU 

104.7 


UJP 

1048 . 

^ ■ 

TIN 

1049 

♦HAUL 

EQU 

105 0 

n?“ 

IMA ' 

1051 

•if" : 

ASS 

1052 


EXS 

10 53 


UJP 

1054 

nr 

EXS 

.1055 

#> 

UJP 

1056 


EXS 

1057 

nr ■ i 

INS 

105 8 

♦ ; : 

UJP 

105 9 

'. ♦ 'V 

UJP 

1060 

nlr 


1061 

-CONNECT 

EQU 

1062 

. n* 

UJP 

1 Q 6 3 

.♦CNC.OOE 

EQU 

106 4 

•nr 

VFD 

10 6 6 

X 

UJP 

1066 

nr 

UJP 

106 7 



106 8 

♦PRESET 

EQU 

1069 

r 

UJP 

10 70 

nr 

STI 

1071 

nr 

S W A 

10 7 2 

nr 

SHA 

1073 

V 

ACI 

10 74 

nr 

SHA 

1075 

* 

T AI 

10 76 

nr 

AN I 

10 7 7 

nr 

ENA 

1078 

nr 

OVA 

1079 

n* 

SHQ 

108 0 


SHA Q 

10 81 

nr 

. STA 

10 3 2 

nr 

UJP 

108 3 

nr 



o 


0,1 
w Ait 


* 

nr 

LOAD 

LOAD THE ADDRESS REGISTER 

* 

428»SELECT 

SELECT WRITE CHECK 

# 

0 9 1 . 


nr 

u 

SELECT PROGRAM STATE ZERO 


10,CQRE,CORE + .WPFB 


# 

0,1 



WAIT 


nr 

T1, X1 



WRITEX 


■nr 

*-Z 


9f 

IMPURE 


“nr 

PRESET 


* 

*-Z 


V 

03778 


n? 

R A T Z $ A 


# 

CONNECT 



LOAD 


* 

4 08f SELECT 

SELECT READ 


0,1 


* 

Q . . 

SELECT PROGRAM STATE ZERO 

* 

IQ,CORE,CORE+ WPFB 


¥ 

0,1 


nr 

WAIT 


nr 

. nr ««• 2 


* 

IMPURE,XI 


nr 

READX 


* 

*-Z 


-nr 

IMPURE 



108,SELECT 

SELECT LOAD ADDRESS 


0,1 


nr 

0 

SELECT PROGRAM STATE ZERO 

* 

10,ADDRESS,ADORES 

S+l 

* 

0 * 1 



WAIT 



LOAD 


* 

•nr 

2 


* 

IMPURE 


* 

229,0 

SET CLOCK TO ZERO 


*~Z 


nr 

22 -B 

CLOCK TO A 

* 

1000 

ALLOW ONE SECOND HANG 

* 

00248,SENSE 

SENSE FOR ABNORMAL OR HISCGMPARE 

nr 

0,1 


nr 

0026B,SENSE 

Li ATT! 

SENSE FOR.ERRORS OR BUSY 

* 

A X i w 

0001B,SENSE 

SENSE FOR READY 

¥ 

00018,SENSE 
n .i 

SENSE FOR CHANNEL PARITY ERRORS 

* 


WAIT 


♦-2 


* 

IMPURE 





nr 

A9/C0N,A15/IMPURE 


* 

♦-Z-1 


* 

CONNECT 


* 

* 

-Z 


♦ 

IMPURE 


nr 

T1 , X1 


T 

CNCOOE 

STORE THE CONNECT CODE 

nr 

12 


* 



n? 

9 


* 



-* 

3,1 


*v 

G 



F B P C , 1 


■v 

15 


V 

12 


* 

ADDRESS 


¥ 

PRESET 


' nr 


nr 


0 

0 

0 

0 

0 

o 
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o 

o 

o 

o 

0 

o 

o 

o 

o 

o 

o 

o 

o 

0 


0 
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3 

G 


05263 

10 89 

MZERO 

EQU 


01263 

7777777/ 

1 09 U 


VFO 



0 5266 

1091 

DISKBPNT 

EQU 


012 6 5 

00100000 

1092 


00 

O 


0 5 26 6 

1093 

COREA00 

EQU 

01266 

00000000 

1094 


VFD 



05267 

. 1095 

3ACKPTR 

EQU 

. 

0 1267 

7777777 7 

10 9 6 


VFO 

O 


0 5 270 

109 7 

ENT L 

EQU 

0 12 70 

0 Q 0 0 0 0 0 U 

109 8 


VFD 



0 6271 

1099 

TEMP 

EQU 


01271 

0 0 0 0 0000 : 

110 0 


VFD 

o 


05 273 

1101 

TEMP3LK 

EQU 


01273 

00000000 

1102 


VFO 



0 5274 

110 3 

MZEROADO 

EQU 


01274 

Q0000Q00 

110.4 


VFO 

o 


0 6275 

1105 

060000 

EQU 

01275 

00165140 

110 6 


OEC 



05276 

110 7 

TEN' 

EQU 


012 76 

00000012 

110 8 


OEC 

o 


0527 7 

1109 

3LKLI3T 

EQU 


0 5277 

1110 

MXSBLOCK 

EQU 


.01277 

44676222 

i 111 


BCD 



u. 5 3 0 1 

1112 

SAVEB8LK 

EQU 

o 

0 13 0 1 

62216625 

1113 


SCO 



0 5303 

1114 

SAVEDBLK 

EQU 


.0 1303 

62216525 

ins 


BCD 



0 5305 

1116 

SECUR ITT 

EQU 

o 

013 05 

■62252364 

1117 


' BCD. 



0 0010. 

1118 

■BL-KLN.fri 

EQU 




11.19 





0 53 0 7 

-112 2 

LTIME 

EQU 

o 

0130 7 


1121 


65S 


05310 

1122 

IOAQ 

EQU 


U 1310 


112 3 


.... B S S. 

o 


05310 

1124 

ADDRESS 

EQU 


05312 

112 5 

IOX1 

EQU 

01312 


11.26 


ass 



05313 

1127 

10X2..: . 

EQU 


01313 


112 8 


ass 

o 



1129 

!£ If, 





1131 

4 F 





1132 

•V' 

END 

r\ 



i 133 



v 



1135 ’ 

*$-■*& *& ^ 

41 47 4- 

’ IF 

0 



1.13 S 

1 i J ? 



03000 P 

1138 


ORG 



0 7 0 0 0 

1139- 

CORE 

EQU 


0 3 0 0 Q 


1.14 0 


: BSS 

o 



1141 






11 4 2 


ENG 

o 

NO L 

I N E S WITH ERRORS 





o 

o 

o 


o 


o 












ASSEMBLER/OS3 V i,U 09/21/74 2224 PAGE 1 ENQOS3 



ABEND 
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799 
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845 

012 07 P 

850 

01212P 

855 

01215P 





r 

A13 MSG 


2450 3 

82 3 














AGCHUM 

X 


8 

147 

G0064P 











* 

ACCHORD 


0 0 0 0 0 

71 













V 

ADDRESS 


0 5 3 i 0 

1124 














ARRAYT8L 

X 


9 

718 

0077OP 

724 

00776P 

73 8 

01012P 

7 85 

010 62 P 






13 ACKPT R 


0 52 6 7 

10 95 

254 

00207P 
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